home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Business / SalesTax&IncomeReports / Sales Tax / Sales Tax / background_11011.xml < prev    next >
Extensible Markup Language  |  1991-07-15  |  96KB  |  992 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>11011</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_11525.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_30736.css" />
  11.     <part>
  12.         <id>10</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>39</left>
  23.             <top>283</top>
  24.             <right>164</right>
  25.             <bottom>300</bottom>
  26.         </rect>
  27.         <style>transparent</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <true /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Chicago</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>year to date income</name>
  40.         <script>on mouseUpglobal myYearask "Please type in the year..." with myYearif length of it ‚↠4 thenput empty into messagetype "I need a year to it look up. Try again...(a year must be 4 charaters long)."wait 2 secondshide messageexit mouseUpend ifif it is empty then exit mouseUpput empty into INCOMEput empty into JOBSput "figuring out income for" && it into field "Income"set cursor to 4lock screengo background id 10307repeat for the number of cards of this backgroundif first item of field "date items" = it thenadd 1 to JOBSadd field "subtotal" to INCOMEend ifgo to next card of this backgroundend repeatgo background "reports"if INCOME is empty thenput empty into messagetype¬¨"There was no data for that year, so I don't know how much you made."wait 3 secondshide msgend ifput empty into addOneput the number of chars in INCOME into addOneif char (addOne - 1) of INCOME = "." thenput "0" after line 1 of INCOMEend ifif "." is not in INCOME thenput ".00" after INCOMEend ifput empty into addOneif "," is not in INCOME thenif the number of chars in INCOME > 7 thenput the number of chars in INCOME into addOneput "," after char (addOne - 6) of INCOMEend ifend ifput it & ":" && "$" & INCOME && "from" && JOBS && "invoices."into field "Income"unlock screen with barn door openSONGset hilight of target to trueset hilight of target to falseset hilight of target to trueset hilight of target to falseset hilight of target to trueset hilight of target to falseset hilight of target to trueset hilight of target to falseset hilight of target to trueset hilight of target to falseset hilight of target to trueset hilight of target to falseend mouseUp</script>
  41.     </part>
  42.     <part>
  43.         <id>2</id>
  44.         <type>field</type>
  45.         <visible> <true /> </visible>
  46.         <dontWrap> <false /> </dontWrap>
  47.         <dontSearch> <false /> </dontSearch>
  48.         <sharedText> <false /> </sharedText>
  49.         <fixedLineHeight> <true /> </fixedLineHeight>
  50.         <autoTab> <false /> </autoTab>
  51.         <lockText> <true /> </lockText>
  52.         <rect>
  53.             <left>250</left>
  54.             <top>129</top>
  55.             <right>369</right>
  56.             <bottom>150</bottom>
  57.         </rect>
  58.         <style>transparent</style>
  59.         <autoSelect> <false /> </autoSelect>
  60.         <showLines> <false /> </showLines>
  61.         <wideMargins> <false /> </wideMargins>
  62.         <multipleLines> <false /> </multipleLines>
  63.         <reservedFamily> 0 </reservedFamily>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>0</icon>
  66.         <textAlign>right</textAlign>
  67.         <font>Palatino</font>
  68.         <textSize>14</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <textHeight>18</textHeight>
  71.         <name>nontaxable receipts</name>
  72.         <script></script>
  73.     </part>
  74.     <part>
  75.         <id>3</id>
  76.         <type>field</type>
  77.         <visible> <true /> </visible>
  78.         <dontWrap> <false /> </dontWrap>
  79.         <dontSearch> <false /> </dontSearch>
  80.         <sharedText> <false /> </sharedText>
  81.         <fixedLineHeight> <true /> </fixedLineHeight>
  82.         <autoTab> <false /> </autoTab>
  83.         <lockText> <true /> </lockText>
  84.         <rect>
  85.             <left>250</left>
  86.             <top>174</top>
  87.             <right>369</right>
  88.             <bottom>197</bottom>
  89.         </rect>
  90.         <style>transparent</style>
  91.         <autoSelect> <false /> </autoSelect>
  92.         <showLines> <false /> </showLines>
  93.         <wideMargins> <false /> </wideMargins>
  94.         <multipleLines> <false /> </multipleLines>
  95.         <reservedFamily> 0 </reservedFamily>
  96.         <titleWidth>0</titleWidth>
  97.         <icon>0</icon>
  98.         <textAlign>right</textAlign>
  99.         <font>Palatino</font>
  100.         <textSize>14</textSize>
  101.         <textStyle>plain</textStyle>
  102.         <textHeight>18</textHeight>
  103.         <name>taxable receipts</name>
  104.         <script></script>
  105.     </part>
  106.     <part>
  107.         <id>4</id>
  108.         <type>field</type>
  109.         <visible> <true /> </visible>
  110.         <dontWrap> <false /> </dontWrap>
  111.         <dontSearch> <false /> </dontSearch>
  112.         <sharedText> <false /> </sharedText>
  113.         <fixedLineHeight> <true /> </fixedLineHeight>
  114.         <autoTab> <false /> </autoTab>
  115.         <lockText> <true /> </lockText>
  116.         <rect>
  117.             <left>252</left>
  118.             <top>219</top>
  119.             <right>370</right>
  120.             <bottom>242</bottom>
  121.         </rect>
  122.         <style>transparent</style>
  123.         <autoSelect> <false /> </autoSelect>
  124.         <showLines> <false /> </showLines>
  125.         <wideMargins> <false /> </wideMargins>
  126.         <multipleLines> <false /> </multipleLines>
  127.         <reservedFamily> 0 </reservedFamily>
  128.         <titleWidth>0</titleWidth>
  129.         <icon>0</icon>
  130.         <textAlign>right</textAlign>
  131.         <font>Palatino</font>
  132.         <textSize>14</textSize>
  133.         <textStyle>plain</textStyle>
  134.         <textHeight>18</textHeight>
  135.         <name>sales tax due</name>
  136.         <script></script>
  137.     </part>
  138.     <part>
  139.         <id>1</id>
  140.         <type>field</type>
  141.         <visible> <true /> </visible>
  142.         <dontWrap> <false /> </dontWrap>
  143.         <dontSearch> <false /> </dontSearch>
  144.         <sharedText> <false /> </sharedText>
  145.         <fixedLineHeight> <true /> </fixedLineHeight>
  146.         <autoTab> <false /> </autoTab>
  147.         <lockText> <true /> </lockText>
  148.         <rect>
  149.             <left>251</left>
  150.             <top>86</top>
  151.             <right>369</right>
  152.             <bottom>104</bottom>
  153.         </rect>
  154.         <style>transparent</style>
  155.         <autoSelect> <false /> </autoSelect>
  156.         <showLines> <false /> </showLines>
  157.         <wideMargins> <false /> </wideMargins>
  158.         <multipleLines> <false /> </multipleLines>
  159.         <reservedFamily> 0 </reservedFamily>
  160.         <titleWidth>0</titleWidth>
  161.         <icon>0</icon>
  162.         <textAlign>right</textAlign>
  163.         <font>Palatino</font>
  164.         <textSize>14</textSize>
  165.         <textStyle>plain</textStyle>
  166.         <textHeight>18</textHeight>
  167.         <name>gross receipts</name>
  168.         <script></script>
  169.     </part>
  170.     <part>
  171.         <id>9</id>
  172.         <type>field</type>
  173.         <visible> <true /> </visible>
  174.         <dontWrap> <true /> </dontWrap>
  175.         <dontSearch> <false /> </dontSearch>
  176.         <sharedText> <false /> </sharedText>
  177.         <fixedLineHeight> <true /> </fixedLineHeight>
  178.         <autoTab> <false /> </autoTab>
  179.         <lockText> <true /> </lockText>
  180.         <rect>
  181.             <left>169</left>
  182.             <top>284</top>
  183.             <right>365</right>
  184.             <bottom>297</bottom>
  185.         </rect>
  186.         <style>transparent</style>
  187.         <autoSelect> <false /> </autoSelect>
  188.         <showLines> <false /> </showLines>
  189.         <wideMargins> <false /> </wideMargins>
  190.         <multipleLines> <false /> </multipleLines>
  191.         <reservedFamily> 0 </reservedFamily>
  192.         <titleWidth>0</titleWidth>
  193.         <icon>0</icon>
  194.         <textAlign>center</textAlign>
  195.         <font>Geneva</font>
  196.         <textSize>9</textSize>
  197.         <textStyle>plain</textStyle>
  198.         <textHeight>12</textHeight>
  199.         <name>Income</name>
  200.         <script></script>
  201.     </part>
  202.     <part>
  203.         <id>13</id>
  204.         <type>button</type>
  205.         <visible> <true /> </visible>
  206.         <reserved5> 0 </reserved5>
  207.         <reserved4> 0 </reserved4>
  208.         <reserved3> 0 </reserved3>
  209.         <reserved2> 0 </reserved2>
  210.         <reserved1> 0 </reserved1>
  211.         <enabled> <true /> </enabled>
  212.         <rect>
  213.             <left>282</left>
  214.             <top>250</top>
  215.             <right>311</right>
  216.             <bottom>272</bottom>
  217.         </rect>
  218.         <style>transparent</style>
  219.         <showName> <false /> </showName>
  220.         <highlight> <false /> </highlight>
  221.         <autoHighlight> <true /> </autoHighlight>
  222.         <sharedHighlight> <true /> </sharedHighlight>
  223.         <family>0</family>
  224.         <titleWidth>0</titleWidth>
  225.         <icon>0</icon>
  226.         <textAlign>center</textAlign>
  227.         <font>Chicago</font>
  228.         <textSize>12</textSize>
  229.         <textStyle>plain</textStyle>
  230.         <name>2nd Quarter</name>
  231.         <script>on mouseUpglobal quartSecs,myYearset numberFormat to 0.00set lockMessages to trueput empty into myYearput empty into JOBSput empty into TAXput empty into TAXFEDput empty into TAXALLput empty into TAXABLEput empty into TAXABLEFEDput empty into TAXABLEALLput empty into GROSSput empty into NONTAX-----------------report card variables-----------put empty into clientreportput empty into invoicereportput empty into datereportput empty into subreportput empty into taxreportput empty into taxratereportput empty into totalreport-----------------end report card variables-----------emptyTheFieldsgo background id 10307----------------------------------------------------2 year span--------if item 3 of quartSecs > item 4 of quartsecs then --checks if 2 yearspan occurs this  quarter=yesrepeat for the number of cards of this backgroundif item 1 of field "date items" = (myYear - 1) then--(second quarter)if bg field "1992secs" > item 3 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifif item 1 of field "date items" = myYear then--(second quarter)if bg field "1992secs" < item 4 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifgo to next card of this backgroundend repeatend if-----------------------------------------------------1 year spanif item 3 of quartSecs < item 4 of quartsecs then --checks if 2 yearspan=norepeat for the number of cards of this backgroundif item 1 of field "date items" = myYear thenif bg field "1992secs" > item 3 of quartSecs and bg field "1992secs" < item 4 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifgo to next card of this backgroundend repeatend if------------------------------------end of 1 & 2 year if...thengo card "data report"set cursor to browseunlock screen with visual scroll downlock screenif JOBS > 0 thenput JOBS&" invoices were paid this quarter, averaging $"& GROSS/JOBS&&"per invoice."into field "invoices(avg)"else put "You You have not been paid anything this quarter. You might want to do something about it." into field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"put "$" & GROSS into field "gross receipts"put "$" & TAX into field "sales tax due"put "$" & TAXFED into field "sales tax due fed"put "$" & TAXALL into field "sales tax due st&loc"put "$" & NONTAX into field "nontaxable receipts"put "$" & TAXABLE into field "taxable receipts"put "$" & TAXABLEFED into field "taxable receipts fed"put "$" & TAXABLEALL into field "taxable receipts st&loc"if GROSS is empty then put "$0.00" into fld "gross receipts"if TAX is empty then put "$0.00" into fld "sales tax due"if TAXFED is empty then put "$0.00" into fld "sales tax due fed"if TAXALL is empty then put "$0.00" into fld "sales tax due st&loc"if NONTAX is empty then put "$0.00" into fld "nontaxable receipts"if TAXABLE is empty then put "$0.00" into fld "taxable receipts"if TAXABLEFED is empty then put "$0.00" into fld "taxable receipts fed"if TAXABLEALL is empty then put "$0.00" into fld "taxable receipts st&loc"---------reportcard-------------go card "reportcard"---------empty old info--------------emptyReportCard----------enter new info---------------put "Income & Tax Report:" && short name of target && myYear into fld "text" of card "reportcard"if JOBS > 0 thenput JOBS&" invoices were paid this quarter, averaging $"& GROSS/JOBS&&"per invoice."into field "invoices(avg)"else put "You You have not been paid anything this quarter. You might want to do something about it." into field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"if GROSS is empty then put "$0.00" into fld "gross receipts"else  put "$" & GROSS into field "gross receipts" of card "reportcard"if TAX is empty then put "$0.00" into fld "sales tax due"else  put "$" & TAX into field "sales tax due" of card "reportcard"if TAXFED is empty then put "$0.00" into fld "sales tax due fed"else put "$" & TAXFED into field "sales tax due fed" of card "reportcard"if TAXALL is empty then put "$0.00" into fld "sales tax due st&loc"else put "$" & TAXALL into field "sales tax due st&loc" of card "reportcard"if NONTAX is empty then put "$0.00" into fld "nontaxable receipts"else put "$" & NONTAX into field "nontaxable receipts" of card "reportcard"if TAXABLE is empty then put "$0.00" into fld "taxable receipts"else put "$" & TAXABLE into field "taxable receipts" of card "reportcard"if TAXABLEFED is empty then put "$0.00" into fld "taxable receipts fed"else put "$" & TAXABLEFED into field "taxable receipts fed" of card "reportcard"if TAXABLEALL is empty then put "$0.00" into fld "taxable receipts st&loc"else   put "$" & TAXABLEALL into field "taxable receipts st&loc" of card "reportcard"put clientreport into field "client"put invoicereport into field "invoice no.s"put datereport into field "date paid"put subreport into field "subtotal"put taxreport into field "tax"put taxratereport into field "tax rate"put totalreport into field "total"---------------------end reportcard---------------go card "data report"set lockMessages to falseunlock screen with visual dissolveSONGend mouseUp</script>
  232.     </part>
  233.     <part>
  234.         <id>20</id>
  235.         <type>button</type>
  236.         <visible> <true /> </visible>
  237.         <reserved5> 0 </reserved5>
  238.         <reserved4> 0 </reserved4>
  239.         <reserved3> 0 </reserved3>
  240.         <reserved2> 0 </reserved2>
  241.         <reserved1> 0 </reserved1>
  242.         <enabled> <true /> </enabled>
  243.         <rect>
  244.             <left>26</left>
  245.             <top>314</top>
  246.             <right>151</right>
  247.             <bottom>332</bottom>
  248.         </rect>
  249.         <style>transparent</style>
  250.         <showName> <false /> </showName>
  251.         <highlight> <false /> </highlight>
  252.         <autoHighlight> <true /> </autoHighlight>
  253.         <sharedHighlight> <true /> </sharedHighlight>
  254.         <family>0</family>
  255.         <titleWidth>0</titleWidth>
  256.         <icon>0</icon>
  257.         <textAlign>center</textAlign>
  258.         <font>Chicago</font>
  259.         <textSize>12</textSize>
  260.         <textStyle>plain</textStyle>
  261.         <name>client total</name>
  262.         <script>on mouseUpGlobal myYearput empty into SUMput empty into INVOICESask "Which client would you like to see totaled?"if it is empty then exit mouseUpput it into CLIENTput empty into field "client income"put "compiling income figures for" && it into field "client income"answer "All invoices totaled or just one year?"¬¨with "cancel" or "all" or "1 year"if it is "cancel" then exit mouseUpif it is "all" thenset cursor to 4lock screengo background id 10307repeat for the number of cards of this backgroundif field "client" = CLIENT thenadd field "subtotal" to SUMadd 1 to INVOICESend ifgo to next card of this backgroundend repeatgo card "data report"put the number of chars in SUM into DECIif char (DECI - 1) of SUM = "." then put "0" after SUMif "." is not in SUM then put ".00" after SUMif the number of chars in SUM > 6 thenif "," is not in SUM thenput empty into addOneput the number of chars in SUM into addOneput "," after char (addOne - 6) of SUMend ifend ifput "Total"&&CLIENT&&"income:"&&"$"&SUM&&¬¨"from"&&INVOICES&&"invoices." into field "client income"if SUM = empty then put "I have no records for that client" into field "client income"  elseend ifend ifif it is "1 year" thenask "For which year?" with myYearif length of it ‚↠4 thenput empty into messagetype "I need a year to it look up. Try again...(a year must be 4 charaters long)."wait 2 secondshide messageexit mouseUpend ifif it is empty then exit mouseUpput " ("&it&")" after line 1 of field "client income"set cursor to 4lock screengo background id 10307repeat for the number of cards of this backgroundif field "client" = CLIENT  and it = item 1 of field "date items" thenadd field "subtotal" to SUMadd 1 to INVOICESend ifgo to next card of this backgroundend repeatgo card "data report"if SUM = empty thenput it && "you made nothing from" && CLIENT into field "client income"exit mouseUpend ifput the number of chars in SUM into DECIif char (DECI - 1) of SUM = "." then put "0" after SUMif "." is not in SUM then put ".00" after SUMif the number of chars in SUM > 6 thenif "," is not in SUM thenput empty into addOneput the number of chars in SUM into addOneput "," after char (addOne - 6) of SUMend ifend ifput CLIENT&&"income:"&&"("&it&")"&&"$"&SUM&&"from"&&INVOICES&&"invoices." into field "client income"end ifunlock screenSONGset hilight of target to trueset hilight of target to falseset hilight of target to trueset hilight of target to falseset hilight of target to trueset hilight of target to falseset hilight of target to trueset hilight of target to falseend mouseUp</script>
  263.     </part>
  264.     <part>
  265.         <id>22</id>
  266.         <type>field</type>
  267.         <visible> <true /> </visible>
  268.         <dontWrap> <false /> </dontWrap>
  269.         <dontSearch> <false /> </dontSearch>
  270.         <sharedText> <false /> </sharedText>
  271.         <fixedLineHeight> <true /> </fixedLineHeight>
  272.         <autoTab> <false /> </autoTab>
  273.         <lockText> <false /> </lockText>
  274.         <rect>
  275.             <left>21</left>
  276.             <top>27</top>
  277.             <right>494</right>
  278.             <bottom>54</bottom>
  279.         </rect>
  280.         <style>transparent</style>
  281.         <autoSelect> <false /> </autoSelect>
  282.         <showLines> <false /> </showLines>
  283.         <wideMargins> <false /> </wideMargins>
  284.         <multipleLines> <false /> </multipleLines>
  285.         <reservedFamily> 0 </reservedFamily>
  286.         <titleWidth>0</titleWidth>
  287.         <icon>0</icon>
  288.         <textAlign>center</textAlign>
  289.         <font>Palatino</font>
  290.         <textSize>18</textSize>
  291.         <textStyle>extend</textStyle>
  292.         <textStyle>bold</textStyle>
  293.         <textHeight>24</textHeight>
  294.         <name>text</name>
  295.         <script></script>
  296.     </part>
  297.     <part>
  298.         <id>23</id>
  299.         <type>field</type>
  300.         <visible> <true /> </visible>
  301.         <dontWrap> <false /> </dontWrap>
  302.         <dontSearch> <false /> </dontSearch>
  303.         <sharedText> <false /> </sharedText>
  304.         <fixedLineHeight> <true /> </fixedLineHeight>
  305.         <autoTab> <false /> </autoTab>
  306.         <lockText> <true /> </lockText>
  307.         <rect>
  308.             <left>154</left>
  309.             <top>315</top>
  310.             <right>488</right>
  311.             <bottom>331</bottom>
  312.         </rect>
  313.         <style>transparent</style>
  314.         <autoSelect> <false /> </autoSelect>
  315.         <showLines> <false /> </showLines>
  316.         <wideMargins> <false /> </wideMargins>
  317.         <multipleLines> <false /> </multipleLines>
  318.         <reservedFamily> 0 </reservedFamily>
  319.         <titleWidth>0</titleWidth>
  320.         <icon>0</icon>
  321.         <textAlign>center</textAlign>
  322.         <font>Geneva</font>
  323.         <textSize>9</textSize>
  324.         <textStyle>plain</textStyle>
  325.         <textHeight>12</textHeight>
  326.         <name>client income</name>
  327.         <script></script>
  328.     </part>
  329.     <part>
  330.         <id>26</id>
  331.         <type>field</type>
  332.         <visible> <true /> </visible>
  333.         <dontWrap> <false /> </dontWrap>
  334.         <dontSearch> <false /> </dontSearch>
  335.         <sharedText> <false /> </sharedText>
  336.         <fixedLineHeight> <true /> </fixedLineHeight>
  337.         <autoTab> <false /> </autoTab>
  338.         <lockText> <true /> </lockText>
  339.         <rect>
  340.             <left>21</left>
  341.             <top>52</top>
  342.             <right>494</right>
  343.             <bottom>70</bottom>
  344.         </rect>
  345.         <style>transparent</style>
  346.         <autoSelect> <false /> </autoSelect>
  347.         <showLines> <false /> </showLines>
  348.         <wideMargins> <false /> </wideMargins>
  349.         <multipleLines> <false /> </multipleLines>
  350.         <reservedFamily> 0 </reservedFamily>
  351.         <titleWidth>0</titleWidth>
  352.         <icon>0</icon>
  353.         <textAlign>center</textAlign>
  354.         <font>Geneva</font>
  355.         <textSize>9</textSize>
  356.         <textStyle>extend</textStyle>
  357.         <textHeight>12</textHeight>
  358.         <name>invoices(avg)</name>
  359.         <script></script>
  360.     </part>
  361.     <part>
  362.         <id>27</id>
  363.         <type>button</type>
  364.         <visible> <true /> </visible>
  365.         <reserved5> 0 </reserved5>
  366.         <reserved4> 0 </reserved4>
  367.         <reserved3> 0 </reserved3>
  368.         <reserved2> 0 </reserved2>
  369.         <reserved1> 0 </reserved1>
  370.         <enabled> <true /> </enabled>
  371.         <rect>
  372.             <left>253</left>
  373.             <top>250</top>
  374.             <right>282</right>
  375.             <bottom>271</bottom>
  376.         </rect>
  377.         <style>transparent</style>
  378.         <showName> <false /> </showName>
  379.         <highlight> <false /> </highlight>
  380.         <autoHighlight> <true /> </autoHighlight>
  381.         <sharedHighlight> <true /> </sharedHighlight>
  382.         <family>0</family>
  383.         <titleWidth>0</titleWidth>
  384.         <icon>0</icon>
  385.         <textAlign>center</textAlign>
  386.         <font>Chicago</font>
  387.         <textSize>12</textSize>
  388.         <textStyle>plain</textStyle>
  389.         <name>1st Quarter</name>
  390.         <script>on mouseUpglobal quartSecs,myYearset numberFormat to 0.00set lockMessages to trueput empty into YearFallOverput empty into myYearput empty into JOBSput empty into TAXput empty into TAXFEDput empty into TAXALLput empty into TAXABLEput empty into TAXABLEFEDput empty into TAXABLEALLput empty into GROSSput empty into NONTAX-----------------report card variables-----------put empty into clientreportput empty into invoicereportput empty into datereportput empty into subreportput empty into taxreportput empty into taxratereportput empty into totalreport-----------------end report card variables-----------do emptyTheFieldsgo background id 10307--------------------  1>2  --------------------2 Year span--------if item 1 of quartSecs > item 2 of quartsecs then --checks if 2 Yearspan occurs this  quarter=yesrepeat for the number of cards of this backgroundif item 1 of field "date items" = (myYear-1) thenif bg field "1992secs" > item 1 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifif item 1 of field "date items" = myYear then--(between Jan 1 and Feb 29)if bg field "1992secs" < item 2 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifgo to next card of this backgroundend repeatend if----2>3;3>4-----------1 Year span (goes to previous year)if item 2 of quartSecs > item 3 of quartsecs or item 3 of quartSecs > item 4 of quartsecs then --checks if 2 yearspan=norepeat for the number of cards of this backgroundif item 1 of field "date items" = (myYear-1) thenif bg field "1992secs" > item 1 of quartSecs and bg field "1992secs" < item 2 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifgo to next card of this backgroundend repeatend if-----------(4>5=midyear exactly what to do..?) check these-----------------------------repeat with i = 5 to 7if item i of quartSecs > item (i+1) of quartsecs then --checks if 2 yearspan=norepeat for the number of cards of this backgroundif item 1 of field "date items" = (myYear) thenif bg field "1992secs" > item 1 of quartSecs and bg field "1992secs" < item 2 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifgo to next card of this backgroundend repeatend ifend repeat-------------------------8>1---all same year-------------if item 8 of quartSecs > item 1 of quartsecs then --checks if 2 yearspan=norepeat for the number of cards of this backgroundif item 1 of field "date items" = (myYear) thenif bg field "1992secs" > item 1 of quartSecs and bg field "1992secs" < item 2 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifgo to next card of this backgroundend repeatend if------------------------------------end of 1 & 2 myYear if...thengo card "data report"set cursor to browseunlock screen with visual scroll downlock screenif JOBS > 0 thenput JOBS&" invoices were paid this quarter, averaging $"& GROSS/JOBS&&"per invoice."into field "invoices(avg)"else put "You You have not been paid anything this quarter. You might want to do something about it." into field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"put "$" & GROSS into field "gross receipts"put "$" & TAX into field "sales tax due"put "$" & TAXFED into field "sales tax due fed"put "$" & TAXALL into field "sales tax due st&loc"put "$" & NONTAX into field "nontaxable receipts"put "$" & TAXABLE into field "taxable receipts"put "$" & TAXABLEFED into field "taxable receipts fed"put "$" & TAXABLEALL into field "taxable receipts st&loc"if GROSS is empty then put "$0.00" into fld "gross receipts"if TAX is empty then put "$0.00" into fld "sales tax due"if TAXFED is empty then put "$0.00" into fld "sales tax due fed"if TAXALL is empty then put "$0.00" into fld "sales tax due st&loc"if NONTAX is empty then put "$0.00" into fld "nontaxable receipts"if TAXABLE is empty then put "$0.00" into fld "taxable receipts"if TAXABLEFED is empty then put "$0.00" into fld "taxable receipts fed"if TAXABLEALL is empty then put "$0.00" into fld "taxable receipts st&loc"---------reportcard-------------go card "reportcard"---------empty old info--------------emptyReportCard----------enter new info---------------put "Income & Tax Report:" && short name of target && myYear into fld "text" of card "reportcard"if JOBS > 0 thenput JOBS&" invoices were paid this quarter, averaging $"& GROSS/JOBS&&"per invoice."into field "invoices(avg)"else put "You You have not been paid anything this quarter. You might want to do something about it." into field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"if GROSS is empty then put "$0.00" into fld "gross receipts"else  put "$" & GROSS into field "gross receipts" of card "reportcard"if TAX is empty then put "$0.00" into fld "sales tax due"else  put "$" & TAX into field "sales tax due" of card "reportcard"if TAXFED is empty then put "$0.00" into fld "sales tax due fed"else put "$" & TAXFED into field "sales tax due fed" of card "reportcard"if TAXALL is empty then put "$0.00" into fld "sales tax due st&loc"else put "$" & TAXALL into field "sales tax due st&loc" of card "reportcard"if NONTAX is empty then put "$0.00" into fld "nontaxable receipts"else put "$" & NONTAX into field "nontaxable receipts" of card "reportcard"if TAXABLE is empty then put "$0.00" into fld "taxable receipts"else put "$" & TAXABLE into field "taxable receipts" of card "reportcard"if TAXABLEFED is empty then put "$0.00" into fld "taxable receipts fed"else put "$" & TAXABLEFED into field "taxable receipts fed" of card "reportcard"if TAXABLEALL is empty then put "$0.00" into fld "taxable receipts st&loc"else   put "$" & TAXABLEALL into field "taxable receipts st&loc" of card "reportcard"put clientreport into field "client"put invoicereport into field "invoice no.s"put datereport into field "date paid"put subreport into field "subtotal"put taxreport into field "tax"put taxratereport into field "tax rate"put totalreport into field "total"---------------------end reportcard---------------go card "data report"set lockMessages to falseunlock screen with visual dissolveSONGend mouseUp</script>
  391.     </part>
  392.     <part>
  393.         <id>28</id>
  394.         <type>button</type>
  395.         <visible> <true /> </visible>
  396.         <reserved5> 0 </reserved5>
  397.         <reserved4> 0 </reserved4>
  398.         <reserved3> 0 </reserved3>
  399.         <reserved2> 0 </reserved2>
  400.         <reserved1> 0 </reserved1>
  401.         <enabled> <true /> </enabled>
  402.         <rect>
  403.             <left>311</left>
  404.             <top>250</top>
  405.             <right>340</right>
  406.             <bottom>272</bottom>
  407.         </rect>
  408.         <style>transparent</style>
  409.         <showName> <false /> </showName>
  410.         <highlight> <false /> </highlight>
  411.         <autoHighlight> <true /> </autoHighlight>
  412.         <sharedHighlight> <true /> </sharedHighlight>
  413.         <family>0</family>
  414.         <titleWidth>0</titleWidth>
  415.         <icon>0</icon>
  416.         <textAlign>center</textAlign>
  417.         <font>Chicago</font>
  418.         <textSize>12</textSize>
  419.         <textStyle>plain</textStyle>
  420.         <name>3rd Quarter</name>
  421.         <script>on mouseUpglobal quartSecs,myYearset numberFormat to 0.00set lockMessages to trueput empty into myYearput empty into JOBSput empty into TAXput empty into TAXFEDput empty into TAXALLput empty into TAXABLEput empty into TAXABLEFEDput empty into TAXABLEALLput empty into GROSSput empty into NONTAX-----------------report card variables-----------put empty into clientreportput empty into invoicereportput empty into datereportput empty into subreportput empty into taxreportput empty into taxratereportput empty into totalreport-----------------end report card variables-----------emptyTheFieldsgo background id 10307----------------------------------------------------2 year span--------if item 5 of quartSecs > item 6 of quartsecs then --checks if 2 yearspan=yesrepeat for the number of cards of this backgroundif item 1 of field "date items" = (myYear) then--(between Dec 1 and Dec 31)if bg field "1992secs" > item 5 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifif item 1 of field "date items" = (myYear+1) then--(between Jan 1 and Feb 29)if bg field "1992secs" < item 6 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifgo to next card of this backgroundend repeatend if-----------------------------------------------------1 year spanif item 5 of quartSecs < item 6 of quartsecs  then --checks if 2 yearspan=norepeat for the number of cards of this backgroundif item 1 of field "date items" = myYear thenif bg field "1992secs" > item 5 of quartSecs and bg field "1992secs" < item 6 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifgo to next card of this backgroundend repeatend if------------------------------------end of 1 & 2 year if...thengo card "data report"set cursor to browseunlock screen with visual scroll downlock screenif JOBS > 0 thenput JOBS&" invoices were paid this quarter, averaging $"& GROSS/JOBS&&"per invoice."into field "invoices(avg)"else put "You You have not been paid anything this quarter. You might want to do something about it." into field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"put "$" & GROSS into field "gross receipts"put "$" & TAX into field "sales tax due"put "$" & TAXFED into field "sales tax due fed"put "$" & TAXALL into field "sales tax due st&loc"put "$" & NONTAX into field "nontaxable receipts"put "$" & TAXABLE into field "taxable receipts"put "$" & TAXABLEFED into field "taxable receipts fed"put "$" & TAXABLEALL into field "taxable receipts st&loc"if GROSS is empty then put "$0.00" into fld "gross receipts"if TAX is empty then put "$0.00" into fld "sales tax due"if TAXFED is empty then put "$0.00" into fld "sales tax due fed"if TAXALL is empty then put "$0.00" into fld "sales tax due st&loc"if NONTAX is empty then put "$0.00" into fld "nontaxable receipts"if TAXABLE is empty then put "$0.00" into fld "taxable receipts"if TAXABLEFED is empty then put "$0.00" into fld "taxable receipts fed"if TAXABLEALL is empty then put "$0.00" into fld "taxable receipts st&loc"---------reportcard-------------go card "reportcard"---------empty old info--------------emptyReportCard----------enter new info---------------put "Income & Tax Report:" && short name of target && myYear into fld "text" of card "reportcard"if JOBS > 0 thenput JOBS&" invoices were paid this quarter, averaging $"& GROSS/JOBS&&"per invoice."into field "invoices(avg)"else put "You You have not been paid anything this quarter. You might want to do something about it." into field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"if GROSS is empty then put "$0.00" into fld "gross receipts"else  put "$" & GROSS into field "gross receipts" of card "reportcard"if TAX is empty then put "$0.00" into fld "sales tax due"else  put "$" & TAX into field "sales tax due" of card "reportcard"if TAXFED is empty then put "$0.00" into fld "sales tax due fed"else put "$" & TAXFED into field "sales tax due fed" of card "reportcard"if TAXALL is empty then put "$0.00" into fld "sales tax due st&loc"else put "$" & TAXALL into field "sales tax due st&loc" of card "reportcard"if NONTAX is empty then put "$0.00" into fld "nontaxable receipts"else put "$" & NONTAX into field "nontaxable receipts" of card "reportcard"if TAXABLE is empty then put "$0.00" into fld "taxable receipts"else put "$" & TAXABLE into field "taxable receipts" of card "reportcard"if TAXABLEFED is empty then put "$0.00" into fld "taxable receipts fed"else put "$" & TAXABLEFED into field "taxable receipts fed" of card "reportcard"if TAXABLEALL is empty then put "$0.00" into fld "taxable receipts st&loc"else   put "$" & TAXABLEALL into field "taxable receipts st&loc" of card "reportcard"put clientreport into field "client"put invoicereport into field "invoice no.s"put datereport into field "date paid"put subreport into field "subtotal"put taxreport into field "tax"put taxratereport into field "tax rate"put totalreport into field "total"---------------------end reportcard---------------go card "data report"set lockMessages to falseunlock screen with visual dissolveSONGend mouseUp</script>
  422.     </part>
  423.     <part>
  424.         <id>29</id>
  425.         <type>button</type>
  426.         <visible> <true /> </visible>
  427.         <reserved5> 0 </reserved5>
  428.         <reserved4> 0 </reserved4>
  429.         <reserved3> 0 </reserved3>
  430.         <reserved2> 0 </reserved2>
  431.         <reserved1> 0 </reserved1>
  432.         <enabled> <true /> </enabled>
  433.         <rect>
  434.             <left>341</left>
  435.             <top>250</top>
  436.             <right>370</right>
  437.             <bottom>272</bottom>
  438.         </rect>
  439.         <style>transparent</style>
  440.         <showName> <false /> </showName>
  441.         <highlight> <false /> </highlight>
  442.         <autoHighlight> <true /> </autoHighlight>
  443.         <sharedHighlight> <true /> </sharedHighlight>
  444.         <family>0</family>
  445.         <titleWidth>0</titleWidth>
  446.         <icon>0</icon>
  447.         <textAlign>center</textAlign>
  448.         <font>Chicago</font>
  449.         <textSize>12</textSize>
  450.         <textStyle>plain</textStyle>
  451.         <name>4th Quarter</name>
  452.         <script>on mouseUpglobal quartSecs,myYearset numberFormat to 0.00set lockMessages to trueput empty into myYearput empty into JOBSput empty into TAXput empty into TAXFEDput empty into TAXALLput empty into TAXABLEput empty into TAXABLEFEDput empty into TAXABLEALLput empty into GROSSput empty into NONTAX-----------------report card variables-----------put empty into clientreportput empty into invoicereportput empty into datereportput empty into subreportput empty into taxreportput empty into taxratereportput empty into totalreport-----------------end report card variables-----------emptyTheFieldsgo background id 10307----------------------------------------------------2 year span--------if item 7 of quartSecs > item 8 of quartsecs or item 6 of quartSecs > item 7 of quartsecs then --checks if 2 yearspan occurs this  quarter=yesrepeat for the number of cards of this backgroundif item 7 of quartSecs > item 8 of quartsecs and item 1 of field "date items" = (myYear) thenif bg field "1992secs" > item 7 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifif item 1 of field "date items" = (myYear+1) thenif bg field "1992secs" < item 8 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifgo to next card of this backgroundend repeatend if-----------------------------------------------------1 year spanif item 5 of quartSecs > item 6 of quartsecs then --checks if 2 yearspan=norepeat for the number of cards of this backgroundif item 1 of field "date items" = (myYear+1) thenif bg field "1992secs" > item 7 of quartSecs and bg field "1992secs" < item 8 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifgo to next card of this backgroundend repeatend if----------------------------------------if item 1 of quartSecs > item 2 of quartsecs or item 3 of quartSecs > item 4 of quartsecs then --checks if 2 yearspan=norepeat for the number of cards of this backgroundif item 1 of field "date items" = (myYear) thenif bg field "1992secs" > item 7 of quartSecs and bg field "1992secs" < item 8 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifgo to next card of this backgroundend repeatend if-------------if item 8 of quartSecs > item 1 of quartSecs or item 2 of quartSecs >item 3 of quartSecs then --checks contiguous with yearrepeat for the number of cards of this backgroundif item 1 of field "date items" = (myYear) thenif bg field "1992secs" > item 7 of quartSecs and bg field "1992secs" < item 8 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifgo to next card of this backgroundend repeatend if------------------------------------end of 1 & 2 year if...thengo card "data report"set cursor to browseunlock screen with visual scroll downlock screenif JOBS > 0 thenput JOBS&" invoices were paid this quarter, averaging $"& GROSS/JOBS&&"per invoice."into field "invoices(avg)"else put "You You have not been paid anything this quarter. You might want to do something about it." into field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"put "$" & GROSS into field "gross receipts"put "$" & TAX into field "sales tax due"put "$" & TAXFED into field "sales tax due fed"put "$" & TAXALL into field "sales tax due st&loc"put "$" & NONTAX into field "nontaxable receipts"put "$" & TAXABLE into field "taxable receipts"put "$" & TAXABLEFED into field "taxable receipts fed"put "$" & TAXABLEALL into field "taxable receipts st&loc"if GROSS is empty then put "$0.00" into fld "gross receipts"if TAX is empty then put "$0.00" into fld "sales tax due"if TAXFED is empty then put "$0.00" into fld "sales tax due fed"if TAXALL is empty then put "$0.00" into fld "sales tax due st&loc"if NONTAX is empty then put "$0.00" into fld "nontaxable receipts"if TAXABLE is empty then put "$0.00" into fld "taxable receipts"if TAXABLEFED is empty then put "$0.00" into fld "taxable receipts fed"if TAXABLEALL is empty then put "$0.00" into fld "taxable receipts st&loc"---------reportcard-------------go card "reportcard"---------empty old info--------------emptyReportCard----------enter new info---------------put "Income & Tax Report:" && short name of target && myYear into fld "text" of card "reportcard"if JOBS > 0 thenput JOBS&" invoices were paid this quarter, averaging $"& GROSS/JOBS&&"per invoice."into field "invoices(avg)"else put "You You have not been paid anything this quarter. You might want to do something about it." into field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"if GROSS is empty then put "$0.00" into fld "gross receipts"else  put "$" & GROSS into field "gross receipts" of card "reportcard"if TAX is empty then put "$0.00" into fld "sales tax due"else  put "$" & TAX into field "sales tax due" of card "reportcard"if TAXFED is empty then put "$0.00" into fld "sales tax due fed"else put "$" & TAXFED into field "sales tax due fed" of card "reportcard"if TAXALL is empty then put "$0.00" into fld "sales tax due st&loc"else put "$" & TAXALL into field "sales tax due st&loc" of card "reportcard"if NONTAX is empty then put "$0.00" into fld "nontaxable receipts"else put "$" & NONTAX into field "nontaxable receipts" of card "reportcard"if TAXABLE is empty then put "$0.00" into fld "taxable receipts"else put "$" & TAXABLE into field "taxable receipts" of card "reportcard"if TAXABLEFED is empty then put "$0.00" into fld "taxable receipts fed"else put "$" & TAXABLEFED into field "taxable receipts fed" of card "reportcard"if TAXABLEALL is empty then put "$0.00" into fld "taxable receipts st&loc"else   put "$" & TAXABLEALL into field "taxable receipts st&loc" of card "reportcard"put clientreport into field "client"put invoicereport into field "invoice no.s"put datereport into field "date paid"put subreport into field "subtotal"put taxreport into field "tax"put taxratereport into field "tax rate"put totalreport into field "total"---------------------end reportcard---------------go card "data report"set lockMessages to falseunlock screen with visual dissolveSONGend mouseUp</script>
  453.     </part>
  454.     <part>
  455.         <id>30</id>
  456.         <type>field</type>
  457.         <visible> <true /> </visible>
  458.         <dontWrap> <false /> </dontWrap>
  459.         <dontSearch> <false /> </dontSearch>
  460.         <sharedText> <false /> </sharedText>
  461.         <fixedLineHeight> <true /> </fixedLineHeight>
  462.         <autoTab> <false /> </autoTab>
  463.         <lockText> <true /> </lockText>
  464.         <rect>
  465.             <left>394</left>
  466.             <top>167</top>
  467.             <right>485</right>
  468.             <bottom>186</bottom>
  469.         </rect>
  470.         <style>transparent</style>
  471.         <autoSelect> <false /> </autoSelect>
  472.         <showLines> <false /> </showLines>
  473.         <wideMargins> <false /> </wideMargins>
  474.         <multipleLines> <false /> </multipleLines>
  475.         <reservedFamily> 0 </reservedFamily>
  476.         <titleWidth>0</titleWidth>
  477.         <icon>0</icon>
  478.         <textAlign>right</textAlign>
  479.         <font>Geneva</font>
  480.         <textSize>9</textSize>
  481.         <textStyle>plain</textStyle>
  482.         <textHeight>12</textHeight>
  483.         <name>taxable receipts fed</name>
  484.         <script></script>
  485.     </part>
  486.     <part>
  487.         <id>31</id>
  488.         <type>field</type>
  489.         <visible> <true /> </visible>
  490.         <dontWrap> <false /> </dontWrap>
  491.         <dontSearch> <false /> </dontSearch>
  492.         <sharedText> <false /> </sharedText>
  493.         <fixedLineHeight> <true /> </fixedLineHeight>
  494.         <autoTab> <false /> </autoTab>
  495.         <lockText> <true /> </lockText>
  496.         <rect>
  497.             <left>402</left>
  498.             <top>186</top>
  499.             <right>485</right>
  500.             <bottom>204</bottom>
  501.         </rect>
  502.         <style>transparent</style>
  503.         <autoSelect> <false /> </autoSelect>
  504.         <showLines> <false /> </showLines>
  505.         <wideMargins> <false /> </wideMargins>
  506.         <multipleLines> <false /> </multipleLines>
  507.         <reservedFamily> 0 </reservedFamily>
  508.         <titleWidth>0</titleWidth>
  509.         <icon>0</icon>
  510.         <textAlign>right</textAlign>
  511.         <font>Geneva</font>
  512.         <textSize>9</textSize>
  513.         <textStyle>plain</textStyle>
  514.         <textHeight>12</textHeight>
  515.         <name>taxable receipts st&loc</name>
  516.         <script></script>
  517.     </part>
  518.     <part>
  519.         <id>32</id>
  520.         <type>field</type>
  521.         <visible> <true /> </visible>
  522.         <dontWrap> <false /> </dontWrap>
  523.         <dontSearch> <false /> </dontSearch>
  524.         <sharedText> <false /> </sharedText>
  525.         <fixedLineHeight> <true /> </fixedLineHeight>
  526.         <autoTab> <false /> </autoTab>
  527.         <lockText> <true /> </lockText>
  528.         <rect>
  529.             <left>396</left>
  530.             <top>214</top>
  531.             <right>486</right>
  532.             <bottom>232</bottom>
  533.         </rect>
  534.         <style>transparent</style>
  535.         <autoSelect> <false /> </autoSelect>
  536.         <showLines> <false /> </showLines>
  537.         <wideMargins> <false /> </wideMargins>
  538.         <multipleLines> <false /> </multipleLines>
  539.         <reservedFamily> 0 </reservedFamily>
  540.         <titleWidth>0</titleWidth>
  541.         <icon>0</icon>
  542.         <textAlign>right</textAlign>
  543.         <font>Geneva</font>
  544.         <textSize>9</textSize>
  545.         <textStyle>plain</textStyle>
  546.         <textHeight>12</textHeight>
  547.         <name>sales tax due fed</name>
  548.         <script></script>
  549.     </part>
  550.     <part>
  551.         <id>33</id>
  552.         <type>field</type>
  553.         <visible> <true /> </visible>
  554.         <dontWrap> <false /> </dontWrap>
  555.         <dontSearch> <false /> </dontSearch>
  556.         <sharedText> <false /> </sharedText>
  557.         <fixedLineHeight> <true /> </fixedLineHeight>
  558.         <autoTab> <false /> </autoTab>
  559.         <lockText> <true /> </lockText>
  560.         <rect>
  561.             <left>398</left>
  562.             <top>232</top>
  563.             <right>486</right>
  564.             <bottom>250</bottom>
  565.         </rect>
  566.         <style>transparent</style>
  567.         <autoSelect> <false /> </autoSelect>
  568.         <showLines> <false /> </showLines>
  569.         <wideMargins> <false /> </wideMargins>
  570.         <multipleLines> <false /> </multipleLines>
  571.         <reservedFamily> 0 </reservedFamily>
  572.         <titleWidth>0</titleWidth>
  573.         <icon>0</icon>
  574.         <textAlign>right</textAlign>
  575.         <font>Geneva</font>
  576.         <textSize>9</textSize>
  577.         <textStyle>plain</textStyle>
  578.         <textHeight>12</textHeight>
  579.         <name>sales tax due st&loc</name>
  580.         <script></script>
  581.     </part>
  582.     <part>
  583.         <id>34</id>
  584.         <type>field</type>
  585.         <visible> <true /> </visible>
  586.         <dontWrap> <false /> </dontWrap>
  587.         <dontSearch> <false /> </dontSearch>
  588.         <sharedText> <false /> </sharedText>
  589.         <fixedLineHeight> <true /> </fixedLineHeight>
  590.         <autoTab> <false /> </autoTab>
  591.         <lockText> <true /> </lockText>
  592.         <rect>
  593.             <left>374</left>
  594.             <top>166</top>
  595.             <right>414</right>
  596.             <bottom>180</bottom>
  597.         </rect>
  598.         <style>transparent</style>
  599.         <autoSelect> <false /> </autoSelect>
  600.         <showLines> <false /> </showLines>
  601.         <wideMargins> <false /> </wideMargins>
  602.         <multipleLines> <false /> </multipleLines>
  603.         <reservedFamily> 0 </reservedFamily>
  604.         <titleWidth>0</titleWidth>
  605.         <icon>0</icon>
  606.         <textAlign>left</textAlign>
  607.         <font>Geneva</font>
  608.         <textSize>9</textSize>
  609.         <textStyle>plain</textStyle>
  610.         <textHeight>12</textHeight>
  611.         <name>rate1</name>
  612.         <script></script>
  613.     </part>
  614.     <part>
  615.         <id>35</id>
  616.         <type>field</type>
  617.         <visible> <true /> </visible>
  618.         <dontWrap> <false /> </dontWrap>
  619.         <dontSearch> <false /> </dontSearch>
  620.         <sharedText> <false /> </sharedText>
  621.         <fixedLineHeight> <true /> </fixedLineHeight>
  622.         <autoTab> <false /> </autoTab>
  623.         <lockText> <true /> </lockText>
  624.         <rect>
  625.             <left>373</left>
  626.             <top>186</top>
  627.             <right>427</right>
  628.             <bottom>202</bottom>
  629.         </rect>
  630.         <style>transparent</style>
  631.         <autoSelect> <false /> </autoSelect>
  632.         <showLines> <false /> </showLines>
  633.         <wideMargins> <false /> </wideMargins>
  634.         <multipleLines> <false /> </multipleLines>
  635.         <reservedFamily> 0 </reservedFamily>
  636.         <titleWidth>0</titleWidth>
  637.         <icon>0</icon>
  638.         <textAlign>left</textAlign>
  639.         <font>Geneva</font>
  640.         <textSize>9</textSize>
  641.         <textStyle>plain</textStyle>
  642.         <textHeight>12</textHeight>
  643.         <name>rate2</name>
  644.         <script></script>
  645.     </part>
  646.     <part>
  647.         <id>36</id>
  648.         <type>field</type>
  649.         <visible> <true /> </visible>
  650.         <dontWrap> <false /> </dontWrap>
  651.         <dontSearch> <false /> </dontSearch>
  652.         <sharedText> <false /> </sharedText>
  653.         <fixedLineHeight> <true /> </fixedLineHeight>
  654.         <autoTab> <false /> </autoTab>
  655.         <lockText> <true /> </lockText>
  656.         <rect>
  657.             <left>376</left>
  658.             <top>212</top>
  659.             <right>411</right>
  660.             <bottom>227</bottom>
  661.         </rect>
  662.         <style>transparent</style>
  663.         <autoSelect> <false /> </autoSelect>
  664.         <showLines> <false /> </showLines>
  665.         <wideMargins> <false /> </wideMargins>
  666.         <multipleLines> <false /> </multipleLines>
  667.         <reservedFamily> 0 </reservedFamily>
  668.         <titleWidth>0</titleWidth>
  669.         <icon>0</icon>
  670.         <textAlign>left</textAlign>
  671.         <font>Geneva</font>
  672.         <textSize>9</textSize>
  673.         <textStyle>plain</textStyle>
  674.         <textHeight>12</textHeight>
  675.         <name>rate3</name>
  676.         <script></script>
  677.     </part>
  678.     <part>
  679.         <id>37</id>
  680.         <type>field</type>
  681.         <visible> <true /> </visible>
  682.         <dontWrap> <false /> </dontWrap>
  683.         <dontSearch> <false /> </dontSearch>
  684.         <sharedText> <false /> </sharedText>
  685.         <fixedLineHeight> <true /> </fixedLineHeight>
  686.         <autoTab> <false /> </autoTab>
  687.         <lockText> <true /> </lockText>
  688.         <rect>
  689.             <left>376</left>
  690.             <top>231</top>
  691.             <right>419</right>
  692.             <bottom>247</bottom>
  693.         </rect>
  694.         <style>transparent</style>
  695.         <autoSelect> <false /> </autoSelect>
  696.         <showLines> <false /> </showLines>
  697.         <wideMargins> <false /> </wideMargins>
  698.         <multipleLines> <false /> </multipleLines>
  699.         <reservedFamily> 0 </reservedFamily>
  700.         <titleWidth>0</titleWidth>
  701.         <icon>0</icon>
  702.         <textAlign>left</textAlign>
  703.         <font>Geneva</font>
  704.         <textSize>9</textSize>
  705.         <textStyle>plain</textStyle>
  706.         <textHeight>12</textHeight>
  707.         <name>rate4</name>
  708.         <script></script>
  709.     </part>
  710.     <part>
  711.         <id>38</id>
  712.         <type>button</type>
  713.         <visible> <true /> </visible>
  714.         <reserved5> 0 </reserved5>
  715.         <reserved4> 0 </reserved4>
  716.         <reserved3> 0 </reserved3>
  717.         <reserved2> 0 </reserved2>
  718.         <reserved1> 0 </reserved1>
  719.         <enabled> <true /> </enabled>
  720.         <rect>
  721.             <left>420</left>
  722.             <top>73</top>
  723.             <right>456</right>
  724.             <bottom>109</bottom>
  725.         </rect>
  726.         <style>shadow</style>
  727.         <showName> <false /> </showName>
  728.         <highlight> <false /> </highlight>
  729.         <autoHighlight> <true /> </autoHighlight>
  730.         <sharedHighlight> <true /> </sharedHighlight>
  731.         <family>0</family>
  732.         <titleWidth>0</titleWidth>
  733.         <icon>18930</icon>
  734.         <textAlign>center</textAlign>
  735.         <font>Chicago</font>
  736.         <textSize>12</textSize>
  737.         <textStyle>plain</textStyle>
  738.         <name>graph</name>
  739.         <script>on mouseUpPLOTend mouseUp</script>
  740.     </part>
  741.     <part>
  742.         <id>39</id>
  743.         <type>button</type>
  744.         <visible> <true /> </visible>
  745.         <reserved5> 0 </reserved5>
  746.         <reserved4> 0 </reserved4>
  747.         <reserved3> 0 </reserved3>
  748.         <reserved2> 0 </reserved2>
  749.         <reserved1> 0 </reserved1>
  750.         <enabled> <true /> </enabled>
  751.         <rect>
  752.             <left>383</left>
  753.             <top>73</top>
  754.             <right>419</right>
  755.             <bottom>109</bottom>
  756.         </rect>
  757.         <style>shadow</style>
  758.         <showName> <false /> </showName>
  759.         <highlight> <false /> </highlight>
  760.         <autoHighlight> <true /> </autoHighlight>
  761.         <sharedHighlight> <true /> </sharedHighlight>
  762.         <family>0</family>
  763.         <titleWidth>0</titleWidth>
  764.         <icon>30733</icon>
  765.         <textAlign>center</textAlign>
  766.         <font>Chicago</font>
  767.         <textSize>12</textSize>
  768.         <textStyle>plain</textStyle>
  769.         <name>enter</name>
  770.         <script>on mouseUpvisual effect stretch from centerentryRoutineend mouseUp</script>
  771.     </part>
  772.     <part>
  773.         <id>40</id>
  774.         <type>button</type>
  775.         <visible> <true /> </visible>
  776.         <reserved5> 0 </reserved5>
  777.         <reserved4> 0 </reserved4>
  778.         <reserved3> 0 </reserved3>
  779.         <reserved2> 0 </reserved2>
  780.         <reserved1> 0 </reserved1>
  781.         <enabled> <true /> </enabled>
  782.         <rect>
  783.             <left>460</left>
  784.             <top>280</top>
  785.             <right>485</right>
  786.             <bottom>300</bottom>
  787.         </rect>
  788.         <style>rectangle</style>
  789.         <showName> <false /> </showName>
  790.         <highlight> <false /> </highlight>
  791.         <autoHighlight> <true /> </autoHighlight>
  792.         <sharedHighlight> <true /> </sharedHighlight>
  793.         <family>0</family>
  794.         <titleWidth>0</titleWidth>
  795.         <icon>21847</icon>
  796.         <textAlign>center</textAlign>
  797.         <font>Chicago</font>
  798.         <textSize>12</textSize>
  799.         <textStyle>plain</textStyle>
  800.         <name>home</name>
  801.         <script>on mouseUpset cursor to 4visual effect scroll down to blackvisual effect dissolvego stack "Home"set cursor to 1end mouseUp</script>
  802.     </part>
  803.     <part>
  804.         <id>41</id>
  805.         <type>button</type>
  806.         <visible> <true /> </visible>
  807.         <reserved5> 0 </reserved5>
  808.         <reserved4> 0 </reserved4>
  809.         <reserved3> 0 </reserved3>
  810.         <reserved2> 0 </reserved2>
  811.         <reserved1> 0 </reserved1>
  812.         <enabled> <true /> </enabled>
  813.         <rect>
  814.             <left>457</left>
  815.             <top>73</top>
  816.             <right>493</right>
  817.             <bottom>109</bottom>
  818.         </rect>
  819.         <style>shadow</style>
  820.         <showName> <false /> </showName>
  821.         <highlight> <false /> </highlight>
  822.         <autoHighlight> <true /> </autoHighlight>
  823.         <sharedHighlight> <true /> </sharedHighlight>
  824.         <family>0</family>
  825.         <titleWidth>0</titleWidth>
  826.         <icon>28654</icon>
  827.         <textAlign>center</textAlign>
  828.         <font>Chicago</font>
  829.         <textSize>12</textSize>
  830.         <textStyle>plain</textStyle>
  831.         <name>find</name>
  832.         <script>on mouseUplock screengo background id 10307unlock screen with scroll updoMenu "Find..."end mouseUp</script>
  833.     </part>
  834.     <part>
  835.         <id>44</id>
  836.         <type>button</type>
  837.         <visible> <true /> </visible>
  838.         <reserved5> 0 </reserved5>
  839.         <reserved4> 0 </reserved4>
  840.         <reserved3> 0 </reserved3>
  841.         <reserved2> 0 </reserved2>
  842.         <reserved1> 0 </reserved1>
  843.         <enabled> <true /> </enabled>
  844.         <rect>
  845.             <left>375</left>
  846.             <top>250</top>
  847.             <right>486</right>
  848.             <bottom>274</bottom>
  849.         </rect>
  850.         <style>transparent</style>
  851.         <showName> <false /> </showName>
  852.         <highlight> <false /> </highlight>
  853.         <autoHighlight> <true /> </autoHighlight>
  854.         <sharedHighlight> <true /> </sharedHighlight>
  855.         <family>0</family>
  856.         <titleWidth>0</titleWidth>
  857.         <icon>0</icon>
  858.         <textAlign>right</textAlign>
  859.         <font>Geneva</font>
  860.         <textSize>10</textSize>
  861.         <textStyle>bold</textStyle>
  862.         <name>print report</name>
  863.         <script>on mouseUpanswer "A report will be printed for the period covered by the card you now see."&return&return&"If you'd like a report covering a different period of time "&¬¨quote&"cancel"&quote&" and generate the report you want from this card." with "cancel" or "OK"if it is "cancel" then exit mouseUplock screengo card "reportcard"open report printing with template "Sales Tax & Income Report"print cdclose printinggo backunlock screenend mouseUp</script>
  864.     </part>
  865.     <part>
  866.         <id>45</id>
  867.         <type>button</type>
  868.         <visible> <true /> </visible>
  869.         <reserved5> 0 </reserved5>
  870.         <reserved4> 0 </reserved4>
  871.         <reserved3> 0 </reserved3>
  872.         <reserved2> 0 </reserved2>
  873.         <reserved1> 0 </reserved1>
  874.         <enabled> <true /> </enabled>
  875.         <rect>
  876.             <left>189</left>
  877.             <top>251</top>
  878.             <right>243</right>
  879.             <bottom>273</bottom>
  880.         </rect>
  881.         <style>transparent</style>
  882.         <showName> <false /> </showName>
  883.         <highlight> <false /> </highlight>
  884.         <autoHighlight> <true /> </autoHighlight>
  885.         <sharedHighlight> <true /> </sharedHighlight>
  886.         <family>0</family>
  887.         <titleWidth>0</titleWidth>
  888.         <icon>0</icon>
  889.         <textAlign>center</textAlign>
  890.         <font>Chicago</font>
  891.         <textSize>12</textSize>
  892.         <textStyle>plain</textStyle>
  893.         <name>Calendar Year</name>
  894.         <script>on mouseUpglobal quartSecs,myYearset numberFormat to 0.00set lockMessages to trueput empty into myYearput empty into JOBSput empty into TAXput empty into TAXFEDput empty into TAXALLput empty into TAXABLEput empty into TAXABLEFEDput empty into TAXABLEALLput empty into GROSSput empty into NONTAX-----------------report card variables-----------put empty into clientreportput empty into invoicereportput empty into datereportput empty into subreportput empty into taxreportput empty into taxratereportput empty into totalreport-----------------end report card variables-----------emptyTheFieldsgo background id 10307repeat for the number of cards of this backgroundif item 1 of field "date items" = myYear then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifgo to next card of this backgroundend repeatgo card "data report"set cursor to browseunlock screen with visual scroll downlock screenif JOBS > 0 thenput JOBS&" invoices were paid this year, averaging $"& GROSS/JOBS&&"per invoice."into field "invoices(avg)"else put "You You have not been paid anything this year. You might want to do something about it." into field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"put "$" & GROSS into field "gross receipts"put "$" & TAX into field "sales tax due"put "$" & TAXFED into field "sales tax due fed"put "$" & TAXALL into field "sales tax due st&loc"put "$" & NONTAX into field "nontaxable receipts"put "$" & TAXABLE into field "taxable receipts"put "$" & TAXABLEFED into field "taxable receipts fed"put "$" & TAXABLEALL into field "taxable receipts st&loc"if GROSS is empty then put "$0.00" into fld "gross receipts"if TAX is empty then put "$0.00" into fld "sales tax due"if TAXFED is empty then put "$0.00" into fld "sales tax due fed"if TAXALL is empty then put "$0.00" into fld "sales tax due st&loc"if NONTAX is empty then put "$0.00" into fld "nontaxable receipts"if TAXABLE is empty then put "$0.00" into fld "taxable receipts"if TAXABLEFED is empty then put "$0.00" into fld "taxable receipts fed"if TAXABLEALL is empty then put "$0.00" into fld "taxable receipts st&loc"---------reportcard-------------go card "reportcard"---------empty old info--------------emptyReportCard----------enter new info---------------put "Income & Tax Report:" && short name of target && myYear into fld "text" of card "reportcard"if JOBS > 0 thenput JOBS&" invoices were paid this year, averaging $"& GROSS/JOBS&&"per invoice."into field "invoices(avg)"else put "You You have not been paid anything this year. You might want to do something about it." into field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"if GROSS is empty then put "$0.00" into fld "gross receipts"else  put "$" & GROSS into field "gross receipts" of card "reportcard"if TAX is empty then put "$0.00" into fld "sales tax due"else  put "$" & TAX into field "sales tax due" of card "reportcard"if TAXFED is empty then put "$0.00" into fld "sales tax due fed"else put "$" & TAXFED into field "sales tax due fed" of card "reportcard"if TAXALL is empty then put "$0.00" into fld "sales tax due st&loc"else put "$" & TAXALL into field "sales tax due st&loc" of card "reportcard"if NONTAX is empty then put "$0.00" into fld "nontaxable receipts"else put "$" & NONTAX into field "nontaxable receipts" of card "reportcard"if TAXABLE is empty then put "$0.00" into fld "taxable receipts"else put "$" & TAXABLE into field "taxable receipts" of card "reportcard"if TAXABLEFED is empty then put "$0.00" into fld "taxable receipts fed"else put "$" & TAXABLEFED into field "taxable receipts fed" of card "reportcard"if TAXABLEALL is empty then put "$0.00" into fld "taxable receipts st&loc"else   put "$" & TAXABLEALL into field "taxable receipts st&loc" of card "reportcard"put clientreport into field "client"put invoicereport into field "invoice no.s"put datereport into field "date paid"put subreport into field "subtotal"put taxreport into field "tax"put taxratereport into field "tax rate"put totalreport into field "total"---------------------end reportcard---------------go card "data report"set lockMessages to falseunlock screen with visual dissolveSONGend mouseUp</script>
  895.     </part>
  896.     <part>
  897.         <id>47</id>
  898.         <type>button</type>
  899.         <visible> <true /> </visible>
  900.         <reserved5> 0 </reserved5>
  901.         <reserved4> 0 </reserved4>
  902.         <reserved3> 0 </reserved3>
  903.         <reserved2> 0 </reserved2>
  904.         <reserved1> 0 </reserved1>
  905.         <enabled> <true /> </enabled>
  906.         <rect>
  907.             <left>376</left>
  908.             <top>280</top>
  909.             <right>461</right>
  910.             <bottom>300</bottom>
  911.         </rect>
  912.         <style>rectangle</style>
  913.         <showName> <false /> </showName>
  914.         <highlight> <true /> </highlight>
  915.         <autoHighlight> <true /> </autoHighlight>
  916.         <sharedHighlight> <true /> </sharedHighlight>
  917.         <family>0</family>
  918.         <titleWidth>0</titleWidth>
  919.         <icon>21851</icon>
  920.         <textAlign>center</textAlign>
  921.         <font>Chicago</font>
  922.         <textSize>12</textSize>
  923.         <textStyle>plain</textStyle>
  924.         <name>change quarter settings</name>
  925.         <script>on mouseUpset the hilite of me to falseqDtRset the hilite of me to trueend mouseUp</script>
  926.     </part>
  927.     <part>
  928.         <id>49</id>
  929.         <type>button</type>
  930.         <visible> <true /> </visible>
  931.         <reserved5> 0 </reserved5>
  932.         <reserved4> 0 </reserved4>
  933.         <reserved3> 0 </reserved3>
  934.         <reserved2> 0 </reserved2>
  935.         <reserved1> 0 </reserved1>
  936.         <enabled> <true /> </enabled>
  937.         <rect>
  938.             <left>135</left>
  939.             <top>251</top>
  940.             <right>189</right>
  941.             <bottom>273</bottom>
  942.         </rect>
  943.         <style>transparent</style>
  944.         <showName> <false /> </showName>
  945.         <highlight> <false /> </highlight>
  946.         <autoHighlight> <false /> </autoHighlight>
  947.         <sharedHighlight> <true /> </sharedHighlight>
  948.         <family>0</family>
  949.         <titleWidth>0</titleWidth>
  950.         <icon>0</icon>
  951.         <textAlign>center</textAlign>
  952.         <font>Chicago</font>
  953.         <textSize>12</textSize>
  954.         <textStyle>plain</textStyle>
  955.         <name>Fiscal Year</name>
  956.         <script>on mouseUpglobal quartSecs,myYearset numberFormat to 0.00set lockMessages to trueput empty into myYearput empty into JOBSput empty into TAXput empty into TAXFEDput empty into TAXALLput empty into TAXABLEput empty into TAXABLEFEDput empty into TAXABLEALLput empty into GROSSput empty into NONTAX-----------------report card variables-----------put empty into clientreportput empty into invoicereportput empty into datereportput empty into subreportput empty into taxreportput empty into taxratereportput empty into totalreport-----------------end report card variables-----------emptyTheFieldsgo background id 10307-------1>2 ** 2 year span--‚àû‚àû‚àû‚àû‚àû‚àû-> 0r 2>3 (span bet 1st & 2nd quart)if item 1 of quartSecs > item 2 of quartsecs or item 2 of quartSecs > item 3 of quartsecs then --checks if 2 yearspan occurs this  quarter=yesrepeat for the number of cards of this backgroundif item 1 of field "date items" = (myYear-1) thenif bg field "1992secs" > item 1 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifif item 1 of field "date items" = myYear thenif bg field "1992secs" < item 1 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifgo to next card of this backgroundend repeatend if--‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû 3>4 ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àûif (item 3 of quartSecs > item 4 of quartSecs) then --checks if 2 yearspan occurs this  quarter=yesrepeat for the number of cards of this backgroundif item 1 of fld "date items" = myYear and bg fld "1992secs" < item 8 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifif item 1 of fld "date items" = (myYear-1) and bg fld "1992secs" > item 1 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifgo to next card of this backgroundend repeatend if--‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû 5>6 ‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àûif (item 5 of quartSecs > item 6 of quartSecs) then --checks if 2 yearspan occurs this  quarter=yesrepeat for the number of cards of this backgroundif item 1 of fld "date items" = (myYear+1) and bg fld "1992secs" < item 8 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifif item 1 of fld "date items" = (myYear) and bg fld "1992secs" > item 1 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifgo to next card of this backgroundend repeatend if--7>8----2 year span--or 6>7 (span between 3rd & 4th quarterif item 7 of quartSecs > item 8 of quartsecs or item 6 of quartSecs > item 7 of quartsecs then --checks if 2 yearspan occurs this  quarter=yesrepeat for the number of cards of this backgroundif item 1 of field "date items" = (myYear) thenif bg field "1992secs" > item 8 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifif item 1 of field "date items" = (myYear+1) thenif bg field "1992secs" < item 8 of quartSecs then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifend ifgo to next card of this backgroundend repeatend if-------8>1 ************** 1 year span--------if item 8 of quartSecs > item 1 of quartsecs then --checks if 2 yearspan occurs this  quarter=yesrepeat for the number of cards of this backgroundif item 1 of field "date items" = (myYear) then---------reportcard--------------put field "client"&return after clientreportput field "invoice no."&return after invoicereportput field "date paid"&return after datereportput field "subtotal"&return after subreportput field "tax"&return after taxreportput field "tax rate"&return after  taxratereportput field "total"&return after totalreport----------end reportcard-----------add 1 to JOBSadd field "tax" to TAX ---TAX DUE---if field "heading" contains "Only" then add field "tax" to TAXFEDif field "heading" contains "Local" then add field "tax" to TAXALLadd field "subtotal" to GROSS ---GROSSif field "tax" > 0 thenadd field "subtotal" to TAXABLE ---TAXABLE INCOME--if field "heading" contains "Only" thenadd field "subtotal" to TAXABLEFEDend ifif field "heading" contains "Local" thenadd field "subtotal" to TAXABLEALLend ifend ifif field "tax" = 0 thenadd field "total" to NONTAXend ifend ifgo to next card of this backgroundend repeatend if----------------------------------------------------------------------go card "data report"set cursor to browseunlock screen with visual scroll downlock screenif JOBS > 0 thenput JOBS&" invoices were paid this fiscal year, averaging $"& GROSS/JOBS&&"per invoice."into field "invoices(avg)"else put "You You have not been paid anything this fiscal year. You might want to do something about it." into field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"delete last char of word 1 of field "invoices(avg)"put "$" & GROSS into field "gross receipts"put "$" & TAX into field "sales tax due"put "$" & TAXFED into field "sales tax due fed"put "$" & TAXALL into field "sales tax due st&loc"put "$" & NONTAX into field "nontaxable receipts"put "$" & TAXABLE into field "taxable receipts"put "$" & TAXABLEFED into field "taxable receipts fed"put "$" & TAXABLEALL into field "taxable receipts st&loc"if GROSS is empty then put "$0.00" into fld "gross receipts"if TAX is empty then put "$0.00" into fld "sales tax due"if TAXFED is empty then put "$0.00" into fld "sales tax due fed"if TAXALL is empty then put "$0.00" into fld "sales tax due st&loc"if NONTAX is empty then put "$0.00" into fld "nontaxable receipts"if TAXABLE is empty then put "$0.00" into fld "taxable receipts"if TAXABLEFED is empty then put "$0.00" into fld "taxable receipts fed"if TAXABLEALL is empty then put "$0.00" into fld "taxable receipts st&loc"---------reportcard-------------go card "reportcard"---------empty old info--------------emptyReportCard----------enter new info---------------put "Income & Tax Report:" && short name of target && myYear into fld "text" of card "reportcard"if JOBS > 0 thenput JOBS&" invoices were paid this fiscal year, averaging $"& GROSS/JOBS&&"per invoice."into field "invoices(avg)"else put "You You have not been paid anything this fiscal year. You might want to do something about it." into field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"delete last char of word 1 of field "invoices(avg)" of card "reportcard"if GROSS is empty then put "$0.00" into fld "gross receipts"else  put "$" & GROSS into field "gross receipts" of card "reportcard"if TAX is empty then put "$0.00" into fld "sales tax due"else  put "$" & TAX into field "sales tax due" of card "reportcard"if TAXFED is empty then put "$0.00" into fld "sales tax due fed"else put "$" & TAXFED into field "sales tax due fed" of card "reportcard"if TAXALL is empty then put "$0.00" into fld "sales tax due st&loc"else put "$" & TAXALL into field "sales tax due st&loc" of card "reportcard"if NONTAX is empty then put "$0.00" into fld "nontaxable receipts"else put "$" & NONTAX into field "nontaxable receipts" of card "reportcard"if TAXABLE is empty then put "$0.00" into fld "taxable receipts"else put "$" & TAXABLE into field "taxable receipts" of card "reportcard"if TAXABLEFED is empty then put "$0.00" into fld "taxable receipts fed"else put "$" & TAXABLEFED into field "taxable receipts fed" of card "reportcard"if TAXABLEALL is empty then put "$0.00" into fld "taxable receipts st&loc"else   put "$" & TAXABLEALL into field "taxable receipts st&loc" of card "reportcard"put clientreport into field "client"put invoicereport into field "invoice no.s"put datereport into field "date paid"put subreport into field "subtotal"put taxreport into field "tax"put taxratereport into field "tax rate"put totalreport into field "total"---------------------end reportcard---------------go card "data report"set lockMessages to falseunlock screen with visual dissolveSONGend mouseUp</script>
  957.     </part>
  958.     <part>
  959.         <id>51</id>
  960.         <type>button</type>
  961.         <visible> <true /> </visible>
  962.         <reserved5> 0 </reserved5>
  963.         <reserved4> 0 </reserved4>
  964.         <reserved3> 0 </reserved3>
  965.         <reserved2> 0 </reserved2>
  966.         <reserved1> 0 </reserved1>
  967.         <enabled> <true /> </enabled>
  968.         <rect>
  969.             <left>385</left>
  970.             <top>117</top>
  971.             <right>444</right>
  972.             <bottom>154</bottom>
  973.         </rect>
  974.         <style>transparent</style>
  975.         <showName> <false /> </showName>
  976.         <highlight> <false /> </highlight>
  977.         <autoHighlight> <true /> </autoHighlight>
  978.         <sharedHighlight> <true /> </sharedHighlight>
  979.         <family>0</family>
  980.         <titleWidth>0</titleWidth>
  981.         <icon>16028</icon>
  982.         <textAlign>center</textAlign>
  983.         <font>Geneva</font>
  984.         <textSize>12</textSize>
  985.         <textStyle>plain</textStyle>
  986.         <name>round & refigure</name>
  987.         <script>on mouseUpset the numberFormat to 00.00xglobal FED, fedRate,GEN, genRateanswer "Round the fields for the collected receipts to the nearest dollar and then refigure the resulting tax due?" with "cancel" or "OK"if it is "OK" thenstripTheDollarSignput "$" & round of(bg fld "gross receipts" + .001) into bg fld "gross receipts"put "$" & round of(bg fld "nontaxable receipts" + .001) into bg fld "nontaxable receipts"put round of(bg fld "taxable receipts fed" + .001) into bg fld "taxable receipts fed"put bg fld "taxable receipts fed" into bg fld "taxable receipts"put (bg fld "taxable receipts fed")*FED*.01 into bg fld "sales tax due fed"put round of(bg fld "taxable receipts st&loc" + .001) into bg fld "taxable receipts st&loc"add bg fld "taxable receipts st&loc" to bg fld "taxable receipts"put (bg fld "taxable receipts st&loc")*GEN*.01 into bg fld "sales tax due st&loc"put "$" & ((bg fld "sales tax due fed") + (bg fld "sales tax due st&loc")) into bg fld "sales tax due"put "$" before bg fld "taxable receipts"put "$" before bg fld "taxable receipts fed"put "$" before bg fld "taxable receipts st&loc"put "$" before bg fld "sales tax due fed"put "$" before bg fld "sales tax due st&loc"lock screengo card "reportcard"stripTheDollarSignput "$" & round of(bg fld "gross receipts" + .001) into bg fld "gross receipts"put "$" & round of(bg fld "nontaxable receipts" + .001) into bg fld "nontaxable receipts"put round of(bg fld "taxable receipts fed" + .001) into bg fld "taxable receipts fed"put bg fld "taxable receipts fed" into bg fld "taxable receipts"put (bg fld "taxable receipts fed")*FED*.01 into bg fld "sales tax due fed"put round of(bg fld "taxable receipts st&loc" + .001) into bg fld "taxable receipts st&loc"add bg fld "taxable receipts st&loc" to bg fld "taxable receipts"put (bg fld "taxable receipts st&loc")*GEN*.01 into bg fld "sales tax due st&loc"put "$" & ((bg fld "sales tax due fed") + (bg fld "sales tax due st&loc")) into bg fld "sales tax due"put "$" before bg fld "taxable receipts"put "$" before bg fld "taxable receipts fed"put "$" before bg fld "taxable receipts st&loc"put "$" before bg fld "sales tax due fed"put "$" before bg fld "sales tax due st&loc"put ¬¨"The cumulative receipts in this report have been rounded to the nearest dollar. Tax calculations have been based on the rounded amounts." into bg fld "round"go backunlock screenend ifend mouseUpon  stripTheDollarSignrepeat with i = 1 to the number of bg fldsif char 1 of bg fld i is "$" then delete char 1 of bg fld iend repeatend  stripTheDollarSigngo card "reportcard"</script>
  988.     </part>
  989.     <name>reports</name>
  990.     <script>--on IdleComma "gross receipts","sales tax due","sales tax due fed","sales tax due st&loc","nontaxable receipts","taxable receipts","taxable receipts fed","taxable receipts st&loc"end Idleon Commarepeat with i = 1 to the paramCountput empty into addOneif "," is not in fld param of i thenif the number of chars in fld param of i > 7 thenput the number of chars in fld param of i into addOneput "," after char (addOne - 6) of fld param of iend ifend ifend repeatend Commaif "," is not in fld "gross receipts" of card "reportcard" thenComma "gross receipts","sales tax due","sales tax due fed","sales tax due st&loc","nontaxable receipts","taxable receipts","taxable receipts fed","taxable receipts st&loc"end if</script>
  991. </background>
  992.